<% 	option explicit
	'response.buffer = true
	dim startime
	dim conn
	dim connstr
	startime=timer()
%>
<!--#include file="#cc" -->
<!--#include file="#" -->
<%
	ConnectionDatabase
	Sub ConnectionDatabase
	Dim ConnStr
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)& ";Jet OLEDB:Database Password=chenvbn;"
	'ķýϰ汾Accessӷ
	'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		CloseDatabase
		Response.Write "<font color=#ff0000>ʧ,ٶȹ</font>"
		Response.End
	End If
	End Sub	

Sub CloseDatabase
	Conn.close
	Set conn = Nothing
End Sub

dim hx
set hx=new cls_smt_cn
dim hxcache
set hxcache=new cls_ms
hxcache.CacheName="smt_cn"
hxcache.Name="js"
hxcache.Reloadtime=CacheTime

Dim SqlNowString
If IsSqlDataBase = 1 Then
	SqlNowString = "GetDate()"
Else
	SqlNowString = "Now()"
End If
%>
<!-- #include file="#class" -->
<SCRIPT   LANGUAGE="JavaScript">   
<!--   
if   (top.location   !=   self.location)     
{   
top.location=self.location;   
}   
//-->   
</SCRIPT>
<body oncontextmenu="return false">